home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 20
/
Cream of the Crop 20 (Terry Blount) (1996).iso
/
os2
/
xdsn217.zip
/
SAMPLES
/
SIMPLE
/
halt.mod
< prev
next >
Wrap
Text File
|
1996-01-03
|
376b
|
17 lines
MODULE halt;
IMPORT TERMINATION, STextIO;
BEGIN
IF TERMINATION.HasHalted() THEN
STextIO.WriteString("**** error 1 ****"); STextIO.WriteLn;
END;
HALT;
FINALLY
IF TERMINATION.HasHalted() THEN
STextIO.WriteString("The program was halted."); STextIO.WriteLn;
ELSE
STextIO.WriteString("**** error 2 ****"); STextIO.WriteLn;
END;
END halt.